10 POKE53280,.:POKE53281,.:GOTO860 20 HR=FNH(.):POKEFNPM(10),K:POKEFNSM(10),HR:RETURN 30 M=INT(RND(F)*29):POKES+F,H(M):POKES,L(M):POKES+G,H(M+H):POKES+7,L(M+H) 40 POKES+15,H(M+H+G):POKES+14,L(M+H+G):RETURN 50 REM WALLHANDLER 60 VL=FC:ONFC+FGOSUB500,500,520,550,570 70 RETURN 80 PRINT"[147][146] [205][164][210][198][195][196][197][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][197][196][195][198][210][175][164][206]" 90 PRINT" [167]"SPC(28)"[165]" 100 PRINT" y [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] t" 110 PRINT" [200] [194][205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206][194] [199]" 120 PRINT" b gb[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]hh b" 130 PRINT" g ttm[164]rfcdeeeeeedcfr[164]nyy h" 140 PRINT" t [165][165]y [164][164][164][164][164][164][164][164][164][164][164][164] [167] [167][167] y" 150 PRINT" [165] [167][167] [200] [194][205][164][164][164][164][164][164][164][164][206][194] [165] [165][165] [167]" 160 PRINT" [167] [217][217] [194] [199][194][205][164][210][198][198][210][164][206][194][200] [212] [212][212] [165]" 170 PRINT" y hh g tt[167] [164][164][164][164] [165]yy g gg t" 180 PRINT" [200] [194][194] [212] [165][165][217][217][196][196][196][196][212][212][167][167] [194] [194][194] [199]" 190 PRINT" b gg [165] [167][167] hh[172][162][162][187]gg [165][165] h hh b" 200 PRINT" g tt[167] yy bb[161][146] [161]bb tt y yy h" 210 PRINT" t [165][165]y hh gg[180][146] [170][146]hh gg [167] [167][167] y" 220 PRINT" [165] [167][167] [200] [194][194] [212][212][167][146][164][164][165][146][217][217] [194][194] [165] [165][165] [167]" 230 PRINT" [167] [217][217] [194] [199][199] [204][165][210][210][210][210][167][186] [200][200] [212] [212][212] [165]" 240 PRINT" y hh g ttn[163][163][163][163][163][163][163][163]myy g gg t" 250 PRINT" [200][160] [194][194] [212] [165][165]"SPC(10)"[167][167] [194] [194][194] [199]" 260 PRINT" [194] [199][199] [165] [167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165] [200] [200][200] [194]" 270 PRINT" g ttn[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]myy h" 280 PRINT" [212] [165][165]"SPC(22)"[167][167] [217]" 290 PRINT" [204][175][175][186][206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205][204][175][175][186]" 300 PRINT" [206] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [205]":PRINT" [206]"SPC(36)"[205]" 310 PRINT"[151] ";D$(CD);" # $ % & ) ( ' * + G [211] ";D$(CD);" [146]";L$(DD); 320 RETURN 330 REM 1ST LEFT BLOCK 340 PRINT"[183][183][183][183][183][208]":PRINT"[175][175][175]":RETURN 350 REM 2ND LEFT BLOCK 360 PRINT"";TAB(10)"[207][208]":PRINT""TAB(9)"[175]":RETURN 370 REM 3RD LEFT BLOCK 380 PRINT"";TAB(15)"[207][208]":PRINT""TAB(15)"[164]":RETURN 390 REM 4TH LEFT BLOCK 400 PRINT"";TAB(18)"[177]":PRINT""TAB(17)"[204]":RETURN 410 REM 1ST RIGHT BLOCK 420 PRINT""TAB(34)"[207][183][183][183][183]":PRINT""TAB(37)"[175][175]":RETURN 430 REM 2ND RIGHT BLOCK 440 PRINT"";TAB(28)"[183][208]":PRINT""TAB(30)"[175]":RETURN 450 REM 3RD RIGHT BLOCK 460 PRINT"";TAB(23)"[207][208]":PRINT""TAB(24)"[164]":RETURN 470 REM 4TH RIGHT BLOCK 480 PRINT"";TAB(21)"[178]":PRINT""TAB(22)"[186]":RETURN 490 REM 1ST WALL 500 PRINT"";:FORX=.TO19:PRINTTAB(6)LEFT$(L$,28):NEXT:RETURN 510 REM 2ND WALL 520 PRINT"";:FORX=.TO12:PRINTCHR$(13)TAB(12)LEFT$(L$,15);:NEXT 530 PRINT"[146] ":RETURN 540 REM 3RD WALL 550 PRINT"";:FORX=.TO6:PRINTTAB(17);LEFT$(L$,6):NEXT:RETURN 560 REM 4TH WALL 570 PRINT"";:PRINTTAB(18)"[172][195][195][187]" 580 FORX=.TOF:PRINTTAB(18)"[212] [217]":NEXT:PRINTTAB(18)"[204][164][164][186]":RETURN 590 REM LOOK ROUTINE 600 CEM=FNTE(.):POKEED,CEM:PRINTL$(DD);:GOSUB80 610 FC=H:VL=FC:LV=CD-F+H*-(CD=F):RV=CD+F+H*(CD=H) 620 EBM=FNCP(.):IFEBM>-FANDEBM<256THEN650 630 IFFCTHENFC=FC-F:GOTO620 640 RETURN 650 EL=FNCP(LV):ER=FNCP(RV) 660 IF(DL(EBM,.))THEN680 670 GOSUB60:FC=FC-F:ONF-(FC<.)GOTO620,740 680 IFDL(EL,.)ANDFC-FTHEN620 710 IFDL(CL,K)=.THEN740 720 FORX=.TOG:POKEPL,21:PRINT:IF(DL(CL,K)ANDBO(X))THENPRINTTAB(X*H+3);OA$(X) 730 NEXT 740 GOSUB780:IFCL=WLANDCD=HTHENPOKEPL,7:PRINT:PRINTTAB(18)"[205][206][157][157][206][205]" 750 POKEFNPM(U),15 760 CSM=FNSW(.):POKEV+24,(PEEK(V+24)AND15)ORCSM:RETURN 770 REM MONSTER DISPLAY 780 IFFCANDVLTHENVL=VL-F 790 D=54:POKEFNMP(F),D:POKEFNMP(K),D:POKEFNMP(3),D:POKEFNMP(5),D 800 EL=.:FORX=VLTO.STEP-F:FC=FNCM(X):IFDL(FC,F)=.THEN840 810 FC=DL(FC,F)-F:EL=(ELORSP(X+H)) 820 MB=SP(X)-F:FORD=FTOLEN(SB$(X,FC)):POKEFNMP(MB+D),ASC(MID$(SB$(X,FC),D,F)) 830 POKEBC+SP(X)+D,CS(FC):NEXT 840 NEXT:POKEV+21,EL:RETURN 850 REM SET UP VIC 860 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252) 870 POKE53272,PEEK(53272)AND15:POKE648,192:POKE53272,(PEEK(53272)AND240)OR12 880 POKE53270,(PEEK(53270)AND231) 890 PRINT"[147][151]":GOSUB1950:X=51520:GOSUB900:GOTO930 900 READA$:IFA$="X"THENPOKE53280,.:RETURN 910 FORA=1TOLEN(A$)STEP2:D=ASC(MID$(A$,A,1))-48:FC=ASC(MID$(A$,A+1,1))-48 920 D=D+(D>10)*7:FC=FC+(FC>10)*7:POKEX,D*16+FC:POKE53280,A:X=X+1:NEXT:GOTO900 930 FORX=.TO63:POKE52608+X,.:NEXT 940 DIMDL(255,2),BO(16),SP(7),SB$(3,7),D$(4),L$(6),OA$(8),CS(7),M(15) 950 DIMHC(2),MH(15),M$(1),N$(2),G$(2),H(40),L(40) 960 JP=56320:HR=83:X=.:D=.:FC=.:CL=17:CD=2:VL=.:EL=.:ER=.:VS=. 970 D(1)=1:D(2)=16:D(3)=-1:D(4)=-16:P=.:L=1:LF=10:FORX=.TO7:READSP(X):NEXT 980 TGL=16:CSM=.:CEM=192:V=53248:FORX=.TO39 990 L$=L$+CHR$(32):NEXT:FORX=1TO4:D$(X)=MID$("ESWN",X,1):NEXT 1000 J=.:F=1:H=4:G=8:K=2:I=.02:R=.95:M=.:U=.:TL=388:DD=6:PL=214:ED=648:S=54272 1010 RI=.92:BC=V+38:Y=25:FL=550:ALL=479:WL=17:CR$=CHR$(13) 1020 DEFFNJS(X)=15-(PEEK(JP)AND15):DEFFNJF(X)=((PEEK(JP)AND16)=.) 1030 DEFFNCP(X)=FC*D(CD)+(CL+D(X)):DEFFNSW(X)=(TGL-CSM) 1040 DEFFNTE(X)=(TL-CEM):DEFFNCM(X)=X*D(CD)+CL:DEFFNMP(X)=CEM*256+1016+X 1050 DEFFNPM(X)=55296+970+(X*2):DEFFNSM(X)=CEM*256+970+(X*2):DEFFNH(X)=294-HR 1060 DEFFNLF(LF)=((LF<5)*-K+(LF>=5ANDLF<10)*-7+(LF>=10)*-5) 1070 CEM=FNTE(.):PRINTCHR$(147):POKEED,CEM:GOSUB2010:GOSUB760 1080 FORX=.TO16:BO(X)=2^X:NEXT:FORX=1TO7:L$(X-1)=MID$("[159][154][156][151][144]",X,1):NEXT 1090 HC(.)=2:HC(1)=8:HC(2)=10:M$(.)=" ":M$(1)="[146] " 1100 N$(1)="[158]GOLD":N$(2)="LIFE" 1110 FORX=.TO7:READCS(X):NEXT:A$="":FORX=1TO4:READB$:A$=A$+B$:NEXT:FORX=1TO223 1120 DL(X+15,.)=VAL(MID$(A$,X,1)):NEXT 1130 FORX=.TO8:READA$:OA$(X)=A$:NEXTX 1140 FORX=.TO15:READA:M(X)=A:NEXTX 1150 FORX=3TO.STEP-1:FORD=.TO7:READA$:SB$(X,D)=A$:NEXTD,X 1160 FORX=.TO18:W1$=W1$+"[177][178]":W2$=W2$+"[178][177]":NEXT 1170 FORX=.TO40:M=2703*(2^((X-20)/12)):IFM>65535THENM=65535 1180 H(X)=INT(M/BO(8)):L(X)=M-H(X)*BO(8):NEXT:FORX=.TO15 1190 A=INT(RND(F)*223+16):IFDL(A,.)=.OR(X=14ANDA<224)THEN1190 1200 DL(A,F)=M(X):M(X)=A:MH(X)=X*G+F:NEXT:DL(238,2)=BO(7) 1210 POKEV+21,.:POKEV+23,127:POKEV+29,63:X=V:GOSUB900:GOSUB2670 1220 PRINT"[155] $$$$ PRESS FIRE BUTTON TO BEGIN $$$$ ":WAITJP,16,16 1230 GOSUB2260:GOSUB2490:GOSUB1240:GOSUB2430:GOTO1270 1240 POKEED,FNTE(.):PRINT"[147][146]";:POKEV+32,.:FORX=.TO255STEP16:PRINTTAB(4); 1250 FORJY=.TO15:PRINTM$(DL(X+JY,.));:IFCL=X+JYTHENPRINT"[157][157]()"; 1260 NEXTJY:PRINT:NEXTX:GOSUB760:POKEED,CEM:POKEV+21,.:RETURN 1270 PRINT"[147]":GOSUB760:POKEV+32,5:GOSUB2700:GOSUB600:X=FRE(.):IT=TI+1000 1280 JY=FNJS(.):J=FNJF(.):IFJ=.THENONJYGOTO1360,1370,,1390,70,70,,1380,70,70 1290 GOSUB20:LF=LF+I:POKEV+32,FNLF(LF):ON-(RND(F)>.9)GOSUB30 1300 B=DL(CL,F):IFBANDRND(F)+B/100>RITHENGOSUB1630 1310 IFJANDJY=KTHENGOSUB1450:GOSUB2700 1320 IFJTHENONU+FGOSUB1730,1750,70,1840,70,1870,1890 1330 IFTI>ITTHENGOSUB2330 1340 ON-(VS=.)GOTO1280:Y=Y-F:ON-(Y>.)GOTO1280:Y=FL:DD=DD+F:ON-(DD<6)GOTO1280 1350 PRINT"[147][151] YOUR LANTERN FUEL HAS EXPIRED! ":GOSUB2450:GOTO1690 1360 ON-(DL(CL+D(CD),.)=.)GOTO1410:CL=CL+D(CD):GOTO1430 1370 ON-(DL(CL-D(CD),.)=.)GOTO1410:CL=CL-D(CD):GOTO1430 1380 CD=CD+F:GOTO1400 1390 CD=CD-F 1400 CD=CD+((CD=5)*H)+((CD=.)*-H):GOTO1430 1410 IFCL<>WLTHENGOSUB2670:GOSUB2700:GOTO1290 1420 IFL=ALLANDDL(CL,F)=7THEN1920 1430 GOSUB600:GOTO1290 1440 REM COMMAND BAR 1450 GOSUB2670:FORX=.TOG:IF(LANDBO(X))THENPOKEFNPM(X),12 1460 NEXT:X=.:A=FRE(.):A=.:IF(LAND(BO(U)))THENPOKEFNPM(U),15 1470 POKE198,.:WAITJP,16,. 1480 POKEFNPM(X),.:POKEFNPM(X),F:IF(LANDBO(A))THENPOKEFNPM(A),12:GOTO1500 1490 POKEFNPM(A),11 1500 GOSUB20:JY=FNJS(.):ON-(RND(F)>.9)GOSUB30 1510 P=L:IFJY=GTHENA=X:X=X+F+(X=10)*11 1520 IFJY=HTHENA=X:X=X-F+(X=.)*-11 1530 IFFNJF(.)AND(LANDBO(X))THENPOKEFNPM(U),12:U=X:POKEFNPM(X),15:GOSUB2660 1540 IFFNJF(.)THENRETURN 1550 IFJY=FAND(DL(CL,K)ANDBO(X))THENL=(LORBO(X)):DL(CL,K)=DL(CL,K)-BO(X) 1560 IFJY<>KTHEN1580 1570 IF(LANDBO(X))ANDX>.THENL=(LAND(511-BO(X))):DL(CL,K)=DL(CL,K)ORBO(X):U=. 1580 IFL<>PTHENGOSUB2670:GOSUB600:GOTO1450 1590 ON-(X<=G)GOTO1480:GOSUB1600:GOTO1480 1600 G(K)=INT(LF):PRINT"";TAB(15)N$(X-G);": [155]";:A$=STR$(G(X-G)) 1610 PRINTRIGHT$("0000"+(RIGHT$(A$,LEN(A$)-F)),H):RETURN 1620 REM MONSTER HITS 1630 ON-(B=7)GOTO70:D=INT(RND(F)*3+F):POKEV+33,HC(D-F):LF=LF-(B/((LANDH)+F))-D 1640 FORT=.TO99:NEXT:POKEV+33,.:IFLF<.THEN1670 1650 POKEV+32,FNLF(LF):GOSUB2730:GOSUB2700:RETURN 1660 REM PLAYER KILLED 1670 PRINT"[147]":FORX=.TO16:POKEV+32,X:POKEV+33,X:NEXT:GOSUB2450:PRINT"[151]" 1680 PRINTTAB(11)" S [158] L [150] A [129] I [158] N  !!" 1690 GOSUB2490:PRINT"DO YOU WISH TO ENTER THE CRYPT AGAIN? " 1700 POKE198,.:WAIT198,1:GETA$:IFA$="N"THENPOKEED,4:POKE679,.:SYS679 1710 POKEV+21,.:PRINTCHR$(142):RUN 1720 REM LANTERN 1730 IFVS=.THENVS=F:DD=.:GOSUB600:RETURN 1740 REM SWORD 1750 IFB=.ORB=7ORRND(.)+LF/100<.5THENGOSUB2730:GOSUB2700:RETURN 1760 POKEV+33,5:FORT=.TO100:NEXT:POKEV+33,.:FORX=.TO15 1770 ONF-(M(X)=.)GOTO1780,1810 1780 IFCL=M(X)THENMH(X)=MH(X)-ABS(RND(.)+((LAND2)*F)+LF/6)+(LAND18>.)*-2 1790 ON-(MH(X)>.)GOTO1810:FORD=.TO16:FORT=.TO3:POKEV+39+T,D:NEXTT,D 1800 M(X)=.:DL(CL,F)=.:POKEV+21,PEEK(V+21)AND240:GOSUB2450:GOSUB1820 1810 NEXT:GOSUB2730:GOSUB2700:RETURN 1820 LF=LF+B:DL(CL,K)=(DL(CL,K)ORBO(B)):GOSUB600:GOSUB2670:G(F)=G(F)+B*100 1830 RETURN 1840 REM WAND 1850 ON-(B=G)GOTO1760:RETURN 1860 REM ELIXIR 1870 LF=LF+20:L=L-BO(U):POKEFNPM(U),11:U=.:RETURN 1880 REM MAP 1890 A=PEEK(V+21):GOSUB2760:GOSUB1240:GOSUB2430:GOSUB2670 1900 GOSUB760:POKEV+21,A:POKEV+32,FNLF(LF):GOSUB2700:RETURN 1910 REM VICTORY!! 1920 PRINT"[147][158]";L$;"[150] BRAVE KNIGHT,YOU HAVE CONQUERED CRYPT![158]";L$ 1930 X=9:GOSUB1600:POKEPL,11:PRINT:PRINTTAB(23)"MY HERO![157][157][157][157][157][157][157][157][157][206]":GOTO1690 1940 REM COPY CHAR SET 1950 POKE56333,127:POKE1,51 1960 POKE781,9:POKE782,1:POKE90,.:POKE91,216:POKE88,.:POKE89,248:SYS41964 1970 POKE1,55:POKE56333,129:PRINT"[147]";:GOSUB2280 1980 READA:IFA=-1THENRETURN 1990 FORX=.TO7:READD:POKE61440+A*8+X,D:NEXT:GOTO1980 2000 REM OPENING MARQUEE 2010 PRINTCHR$(8)CHR$(142):PRINT"[147][146]"SPC(8)"[213][195][195][195][201][213][195][195][201] [213][201] [213][201][213][195][195][201][213][195][195][195][201]" 2020 PRINT"[155][169][223][146]"SPC(4)"[194][213][195][201][194][194][213][201][194] [194][202][195][203][194][194][213][201][194][202][201] [213][203] [155][169][223]" 2030 PRINT"[167] [146]"SPC(4)"[194][194] [202][203][194][202][203][194] [202][201] [213][203][194][202][203][194] [194] [194] [155][167] " 2040 PRINT"[167] [146]"SPC(4)"[194][194] [194][213][201][202][201] [194] [194] [194][213][195][203] [194] [194] [155][167] " 2050 PRINT"[167] [146]"SPC(4)"[194][194] [213][201][194][194][202][201][194] [194] [194] [194][194] [194] [194] [155][167] " 2060 PRINT"[167] [146]"SPC(4)"[194][202][195][203][194][194][194] [194][194] [194] [194] [194][194] [194] [194] [155][167] " 2070 PRINT"[167] [146]"SPC(4)"[202][195][195][195][203][202][203] [202][203] [202][195][203] [202][203] [202][195][203] [155][167] " 2080 PRINT"[167] [146] [152][213][195][195][201]"SPC(24)"[155][167] " 2090 PRINT"[167] [146] [151][190][164][164][164][164][188][146] [154][213][195][195][201][213][195][195][201] [149][209][198][198][198][198][198][198][146][209] [155][167] " 2100 PRINT" [167] [146] [151][182][153]m[164][164]n[151][146][181] [154]buibbuck [158][161]\~\~[182][146] [155][167] " 2110 PRINT" [167] [146] [151][182][153][167]mn[165][151][146][181] [154]bbbbbji [158][161]~\~\[182][146] [155][167] " 2120 PRINT" [167] [146] [151][182][153][167]nm[165][151][146][181] [154]bbbbbuk [158][161]\~\~[182][146] [155][167] " 2130 PRINT" [167] [146] [151][182][153]n[163][163]m[151][146][181] [154]bjkbbb [158][161]~\~\[182][146] [155][167][160]" 2140 PRINT" [167] [146] [151][190][163][163][163][163][188][146] [154]jcckjk [158][161]\~\~[182][146] [155][167] " 2150 PRINT" [167] [146] [151][190][163][163][163][163][188][146]"SPC(14)"[149][209][198][198][198][198][198][198][146][209] [155][167] " 2160 PRINT" [167] [146]"SPC(6)"[129][213][195][195][195][201][213][195][195][201] [213][195][195][201] [213][195][195][201]"SPC(6)"[155][167] " 2170 PRINT" [167] [146]"SPC(6)"[129][194][213][195][195][203][194][213][195][203] [194][213][201][194] [194][213][201][194]"SPC(6)"[155][167] " 2180 PRINT"[213][195][203][202][195][201] [129][194][202][201] [194][202][201] [194][202][203][194] [194][202][203][194] [213][195][203][202][195][201]" 2190 PRINT" [151][163][187][172][146][163] [129][194][213][203] [194][213][203] [194][213][201][194] [194][213][201][202][201] [151][163][187][172][146][163]" 2200 PRINT" [149][190][188][146]"SPC(6)"[129][194][194] [194][194] [194][194][194][194] [194][194][202][201][194] [149][190][188]" 2210 PRINT" [168][168][146]"SPC(6)"[129][194][194] [194][202][195][201] [194][194][194][194] [194][194] [194][194] [149][168][168]" 2220 PRINT" [168][168][146]"SPC(6)"[129][202][203] [202][195][195][203] [202][203][202][203] [202][203] [202][203] [149][168][168][175][175]"SPC(31)"[175][175]" 2230 PRINT" A [155][146]3D[149] [155][146]A[149]DVENTURE [155][146]G[149]AME [155][146]B[149]Y [155][146]C[149]LEVE [155][146]B[149]LAKEMORE "; 2240 PRINT"[152] ---- PLEASE WAIT..OPENING DUNJONS!----[145]";:RETURN 2250 REM LOGO 2260 PRINT"[147]";:FORX=.TO11:PRINT"";W1$:PRINT"";W2$:NEXT:POKEPL,8:PRINT 2270 FORX=.TO13:PRINTTAB(14)LEFT$(L$,13):NEXT:PRINTTAB(14)LEFT$(L$,13); 2280 PRINT""TAB(7)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] 2290 [153][163]7)"-===CRYPT OF FEAR==V8.1===WAIT< 2300 PRINTTAB(7)"[171]BY CLEVELAND M. BLAKEMORE[146][179] 2310 [153][163]7)"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)":[142] 2320 [143] MONSTER MOVEMENT 2330 FC[178]15:[129]X[178].[164]FC:[145]F[171](M(X)[178].)[137]2340,2400 2340 [139]CL[179]M(X)[171]G[167]A[178]M(X)[170]D(H) 2350 [139]CL[177]M(X)[170]G[167]A[178]M(X)[170]D(K) 2360 [139]CL[177]M(X)[175]CL[179]M(X)[170]G[167]A[178]M(X)[170]D(F) 2370 [139]CL[179]M(X)[175]CL[177]M(X)[171]G[167]A[178]M(X)[170]D(F[170]K) 2380 [139]A[179].[176]A[177]255[167]2400 2390 [139]DL(A,.)[175]DL(A,F)[178].[167]DL(A,F)[178]DL(M(X),F):DL(M(X),F)[178].:M(X)[178]A 2400 [130] 2410 D[178]DL(CL,F):[139]D[167][145]D[141]70,2580,2610,2540,70,70,70,2640:[141]2700 2420 [151]V[170]21,.:FC[178].:[141]780:IT[178]TI[170]1000:[142] 2430 [129]T[178].[164]3000:[130]:[142] 2440 [143] SOMETHING DIED 2450 [151]S[170]5,15:[151]S[170]23,239:[151]S[170]24,15[170]32:[151]S[170]4,33 2460 A[178]200:[129]SW[178]100[164]50[169][171].5:[151]S[170]22,SW:A[178]A[172].93:[151]S[170]1,A:[130] 2470 [151]S[170]4,32:[129]T[178].[164]30:[130]:[151]S[170]23,.:[151]S[170]24,.:[142] 2480 [143] CRYPT WHISPERS 2490 [141]2760:[151]S[170]5,16[172]11:[151]S[170]6,16[172]15[170]11:[151]S[170]23,239:[151]S[170]24,15[170]32 2500 [129]N[178].[164]5:[151]S[170]1,[181]([187](1)[172]10)[170]1:[129]SW[178].[164][181]([187](1)[172]200):[151]S[170]4,129 2510 [151]S[170]22,SW:[130]:[151]S[170]4,128:[129]T[178].[164]400:[130]T,N 2520 [129]T[178].[164]1500:[130]:[151]S[170]23,.:[151]S[170]24,15:[142] 2530 [143] BLOB 2540 [151]S[170]5,15:[151]S[170]23,239:[151]S[170]24,15[170]32:[151]S[170]4,33 2550 [129]SW[178].[164]150[169]5.25:[151]S[170]22,SW:[151]S[170]1,[181]([187](1)[172]10):[130] 2560 [151]S[170]4,32:[129]T[178].[164]400:[130]:[151]S[170]23,.:[151]S[170]24,15:[142] 2570 [143] COBRA 2580 [141]2760:[151]S[170]5,155:[151]S[170]6,245:[151]S[170]4,129:[129]X[178]50[164]55:[151]S,D 2590 [129]T[178]35[164]55:[151]S[170]1,T:[130]T,X:[151]S[170]4,128:[129]T[178].[164]100:[130]:[142] 2600 [143] IMP 2610 [141]2760:D[178]180:[129]A[178].[164]9:[151]S[170]4,33:[151]S[170]1,D:[129]T[178].[164]5 2620 [130]:[151]S[170]4,32:[129]T[178].[164]40:[130]:D[178]D[172].95:[130]A:[142] 2630 [143] DEMIGORGON 2640 [141]2760:[151]S[170]5,8:[151]S[170]6,255:[151]S[170]4,23:F1[178]8:F2[178]4:[129]Z[178]1[164]30:[151]S[170]1,F1 2650 [151]S[170]15,F2:F2[178]F2[172]1.01:F1[178]F1[170]1:[130]Z:[151]S[170]6,15:[142] 2660 [143] BEEP 2670 [141]2760:[151]S[170]5,96:[151]S[170]6,96:[151]S[170]4,23:[151]S[170]2,85:[151]S[170]1,36 2680 [129]X[178].[164]10:[130]:[151]S[170]6,15:[142] 2690 [143] SINISTER MUSIC 2700 [141]2760:[151]S[170]5,4:[151]S[170]12,4:[151]S[170]19,4:[151]S[170]6,241:[151]S[170]13,241 2710 [151]S[170]20,241:[151]S[170]4,33:[151]S[170]11,33:[151]S[170]19,33:[141]30:[142] 2720 [143] SLASH 2730 [141]2760:[151]S[170]1,25:[151]S,5:[151]S[170]5,20:[151]S[170]4,129 2740 [129]T[178].[164]75:[130]:[151]S[170]4,128:[142] 2750 [143] CLEAR SID 2760 [129]P[178]S[164]S[170]24:[151]P,.:[130]:[151]S[170]24,15:[142] 2770 [143] CHARACTER DATA 2780 [131]159,231,231,231,231,129,195,231,255 2790 [131]65,,62,107,85,34,20,8,. 2800 [131]77,128,64,32,16,8,4,2,1 2810 [131]78,1,2,4,8,16,32,64,128 2820 [131]113,,,,,255,15,15,15 2830 [131]114,,,,,255,240,240,240 2840 [131]163,231,129,219,195,219,129,195,129 2850 [131]164,247,247,247,247,247,227,247,247 2860 [131]165,189,129,137,189,165,129,195,231 2870 [131]166,231,219,231,231,231,231,231,231 2880 [131]167,60,90,102,118,118,118,181,195 2890 [131]168,231,195,231,195,129,126,129,195 2900 [131]169,255,255,231,219,219,231,255,255 2910 [131]170,255,193,148,170,221,235,247,255 2920 [131]171,255,129,129,129,195,231,231,129 2930 [131]212,189,189,189,189,189,189,189,189 2940 [131]40,1,1,7,11,9,3,4,12 2950 [131]41,128,128,224,208,144,192,32,48 2960 [131]201,255,223,207,199,195,193,225,255 2970 [131]83,255,201,193,193,227,247,255,255 2980 [131]213,255,251,243,227,195,131,135,255,-1 2990 [143] MONSTER SPRITE DATA 3000 [131] 000000000000000000000000021840253CA454FF2A8DFFB197FFE19BFFD1FFFFFFDB 3010 [131] FFD3D8FF13481812483C12447E22407E02203C040042000000000000000000000000 3020 [131] 000000000000F80001FC0002AA000272000202000104000088000070200070400070 3030 [131] 40007060007830003C1C001E0E003C3C0078F0003FE0001FC0000400400C7C6012BA 3040 [131] 9011931009FF2007BBC001C7001F7DE03F83F0F3FF7CA17A1EC0FC05C3FE03C7CF03 3050 [131] CE0383CE01C6F701EEE387FCD1E65C68676A13E0100400000C70CC1289EE31C1FF64 3060 [131] 63F1C23264C6642A6CCCAA66DC24E37E71E33FFFE63EBAFC3C827A1800318C447987 3070 [131] 45EBCFFFFE7BF7DE3FBFFE6DEDB7FFFFFF04003C00007E020042020066020066023D 3080 [131] BD8267BDC277FFE243DBE25AFF777E663F7E5A1E3CFF00017E8003FFC00781E00F00 3090 [131] F00E00700E00700E00703E007C1E03FFC005FFA00EFF701F7EF81FFFF81FFFF83FC3 3100 [131] FC3F00FC3E007C3C003C3C003C3C003C3C003C3C003C3C003C3C003CFC003FFC003F 3110 [131] 000000000000000000FF000000007E0000FF0000810000810200E70200E70200E702 3120 [131] 737EC2FF7EE28D7EE2CF7EF285FFF2B7BDFAB5BDFAB7FFFAFDE7FAFDE7BAFC993FF8 3130 [131] FF1F71FF8FFF005400007C00004400007C0000FE00017D0003BB8007C7C00FEFE00D 3140 [131] FF6018EE301C7C7010EE1001FF0001EF0000FE00006C0000FE0000EE0001FF0003EF 3150 [131] 80FF38770E20FF8221F7C203FFE003F7E003FFE003F7E003FFE001F7C000FF8000F7 3160 [131] 8000FF8000F78000FF8001F7C001FFC003F7E003FFE007F7F00FFFF81FF7FC040000 3170 [131] 00000000000000000000004900005D00007F00005500006300007F0000BE80015D60 3180 [131] 07A2F80FDDFC1FE3FC1DFFDC1DF7DC19FFCC38F78E387F0E307706041C0070220088 3190 [131] 216D0820C60824FE482ABAA8309218236DC807A9E00DBAE00CC2600E7DC007FA8001 3200 [131] BA8000ED4000C60001830001818000818000420001C38000E3FFDEE1F586C1FAFFBA 3210 [131] F5877F750105BA8004BF00097FC000E0E001C0600380E00300C00380C00181800183 3220 [131] 0001830001838003C1800301E00781F01A425C0060001C90001288002188002184C6 3230 [131] 418383818383A185C3A185FFD1897EA9953CC953998A22FF440CEB301F6B787FBEF8 3240 [131] 77DDF8E5E3B8C2FF5CC318CEE1FF8E000FE07C0FC07C0F807C0F807C1F00381E0038 3250 [131] 1F007C1F00F83F00F03E01E03E01E01E01E01E03C00E03C00E478007878003878003 3260 [131] 87000787800AC760148A90FC7FBF7EFBC0EFFBF7EFFBF7EFFDFFEFF60C1FF7FFEFF3 3270 [131] FC6FF27BAFE3B7E7EFD737FFA53F78B49F715AE32139E001FFE003FFE003FFF003FF 3280 [131] F007E1F807C0F8FC0780000860001830303010E06019C0C00DC08007C08023EF8021 3290 [131] FF8020FF8040BF80419F80638F8053C3806BFF8097FF811BFF8615FF443FBD283FDD 3300 [131] 101FEFFC0001E00006100C0C1807080C03980603B00303E001F7C401FF8401FF0401 3310 [131]FD0201F98201F1C601C3CA01FFD601FFE901FFD881FFA861BDFC22BBFC14F7F808FC,X 3320 [143] BIT MASKS 3330 [131] 0,4,6,7,15,48,64,128 3340 [143] MONSTER COLORS 3350 [131]0,5,2,6,15,1,7,5 3360 [143] DUNGEON MAP 3370 [131]"010111010101111001110101011100100101111111010010010" 3380 [131]"100000101111001111111110010100101010100101010011110" 3390 [131]"01111111100101010101001010000011100110000001010011001111100" 3400 [131]"111111010010010001000011111111001111110010001000010101111111110" 3410 [143] OBJECT SHAPE STRINGS 3420 [131] "","ONONONON(null)CMD(null)CMD(null)CMD(null)CMD*CMD+" 3430 [131] "ON(null)STEPCMDCMDCMDCMDPEEKOR^PEEKCMDCMDCMDCMDPEEK/EXPPEEK" 3440 [131] "ONONON(null)CMD(null)CMDPEEKCMDPEEKCMDPEEK","CMDCMD(null)" 3450 [131] "ONCMDCMDCMDVALCMDCMDCMDSTEPTAB((null)CMDCMDCMDWAIT(null)TAB(WAITSTEP" 3460 [131] "ONCMDCMDCMD(null)(null)(null)FNCMDCMDCMDCMDFNFNFNFNCMDCMDCMDCMDFNFNFNFN","CMDATN" 3470 [131] "ONCMDCMDASCASCCMDCMDWAIT(null)STEPCMDCMDSTEP(null)" 3480 [143] MONSTER TYPES 3490 [131] 1,1,2,2,3,3,4,5,5,5,6,6,6,6,7,8 3500 [143] MONSTER SHAPE DATA 3510 [131] %,&,',(,),),",",/ 3520 [131] %,&,',(,),),",",/ 3530 [131] %,&,',(,"*+","*+","-.","01" 3540 [131] %,&,',(,"*+","*+","-.","2345" 3550 [143] SPRITE LOCATIONS 3560 [131]A0BFA0958A6BBA6BA0AAA081AC8DAC97,X